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_— CRERTEA/ DES CARACTGRES EN EAN 


CLEAR #:700 
MODE @ 
COLORT 8 @ @ Q@ 
COLORG 8 @ @ @ 
FRINT CHR$(12): 
MODE 14 
POKE #204,#4B 
DRAW @,Q 9,0 @ 
DRAW G,0 @.11 @ 
DRAW 9,0 9.11 Q 
DRAW @,11 9,11 @ 
X4=1.0:Y%=1.0:ADDERX=#40R0 : CHARZ=0.0 
GOSUR 2000:REM EXTRACTION CHAR 
MEMCZX=SCRN(XZL,Y%2) 
DOT X4,Y4 @ 
DOT X2,Y4 8 
DOT XX,Y4 MEMC%X 
G4=GETC:1F G4=0.0@ GOTO 130 
IF GX=16.@ GOTO 300 
IF G4=17.0 GOTO 400 
IF G4=18.0 GOTO 500 
IF G4=19.0 GOTO 600 
IF G%=9.0 GOTO 1000:REM SAVE CHAR 
IF GZX=17.0 GOTO 3Q0U0:REM AUTRE CHAR 
IF G4<>32.0 GOTO 130 
IF MEMC4=8.0 THEN DOT X%.YX @:GOTO 120 
DOT X4,Y4 8 
GOTO 120 
YA=YA+1.0 
IF Y2>10.0 THEN YX=10.0@ 
GOTO 120 
YA=Y4-1.0 
IF Y4X<1.0 THEN YZ=1.0 
GOTO 170 
X4=X 41.0 
IF X2<1.0 THEN XX=1.0 
GOTO 120 
X4=X4+1.0 
IF XX>8.@ THEN X4=8.0 
GOTO 120 
ADRES%=ADDERZ+10.@XCHARX 
FOR V4=1.0 TO 10.0 
VA=-0.0 
FOR UX=1.0 TO 8.0 
Z'A=SCRN(UY , V4) 
IF Z4=8 GOTO 1100 
GOSUB 5000 
VAZL=VAL+HX 
NEXT U% 
POKE ADRESZ+V4-1,VA%X 
NEXT VX 
GOTO 3000 
ADRES4=ADDER%4+10.@XCHAR%X 
FOR VX=1.0 TO 10.0 
Z'=PEEK(ADRES4+V4-1) 


FLST V2.: 


PAGE 


Z@:G 
2025 
2640 
29045 
ZA 
2060 
2055 
207@ 
26h 
2a9@ 
:00Q@ 
F0Q02 
5005 
3010 
3020@ 
30:00 
vnau 
sa1a 
ou:0 
san 
vi 
5250 
5460 
sa7u 
sueu 
10000 
1au10 
10020 
17052 


AR PRORCRORCES 


FOR UX=1.0 TO 8.0 
GOSUB 5000 
W4=7% IAND H% 
IF W/=0.6C GOT 2060 
DOT UX.VX @:G60T0 2G6s 
DOT UX,VY% 8 
NEXT U%X 
NEXT VYx S 
FRINT CHR$(12)3: "CHAR = "3 HEXS(CHARX) :"H" 
RETURN 
FRINIT CHR$#(12): 
INPUT "VALEUR ASCII "4VASCYX 
1F VASC4<G OR VASZZ:-127 GOTO 3000 
CHARKYX=VASCY 
FRINT CHR#(12)3 
GSUTG 115 
ON UX GOTO S217,9020,2035:0,5040.,5050,S5060,5070.5080 
HA=128:RETURN 
H%=64 : RETURN 
HAS: RETURN 
W2=16 :KETURN 
H7=8 : RETURN 
H%=4: RETURN 
H£=2: RETURN 
HX=1:RETURN 
FOR 2Z%=#4000 TO #00 
FOKE 7%.0 
NEXT Z% 
ENN 
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aa 
caau 
2080 
20081 
2002 
2003 
2004 
20085 
2008 
200A 
2@8D 
200F 
2012 
2015 
2016 
2819 


F3 
FS 
ES 
Ds 
cs 
3A9D0@ 
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START 


S1 


s2 


ZID 


DOD OM ©UO om 


D 


D» 


"CHAR GRAPHIC MANAGEMENT ROUTINE‘ 


2000H 


@F901H 
EXIT 
@F901H 


OFFH 


88H 


78H 


2H 
QF902H 


: SAUVEGARDE LES REGISTRES 


TEST S1 MODE<>0@ 


sEXIT SI MODE @ 

s TEST SI SPLIT 

5FAS SPLIT => GOTO S1 

3: TEST SI MODE SPLIT FIXE 


#EXIT SI SPLIT FIXE 
:SINON MET EN 
: MODE NORMAL 


SA=NOMBRE DE LIGNES-10 
; DANS CE MODE 


LIT LA LIGNE QUE L'‘'ON 

3; DESIRE ATTEINDRE 

5: ET PREND LE COMPLEMENT 
3; LE STOCKE DANS DE 

5 ET LE SOUSTRAIT À HL 


SI LE BIT7 DE HL EST 

3 EGAL À 1 ALORS EXIT 

5 CAR LIGNE>NBLMODE 
sA=NBBYTE DANS LIGNE 
CALCULE LE NOMBRE DE BYTES 
: PIXELS DANS LIGNE 


:TESTE SI POSX 

: DESIREE <=POSMAX 
:EXIT SI TROP GRAND 
LIT POSX 


:DE = POSX INVERSEE 
3LIT DEBUT ZONE GRAPHIQUE 


3HL=DEBUT-POSX-POSX-2 
1A=NBBYTE DANS LIGNE 


:DE=NBBYTE DANS LIGNE 


:A=LIGNE DESIREE+1 
s ADDRHL=ADDRHL+A 
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2065 
2068 
2P6E 
2940 
206D 
2070 
2072 
2077 
2075 
2674 
2077 
2078 
2079 
2078 
207E 
SOTC 
z@7F 
208n 
2085 
2044 
2086 
2949 
PAS] 
208E 
2a91 
2092 
20935 
:0%6 
2097 
2a094A 
AE 
2a9cC 
2Q9E 
209F 
2842 
29A35 
2un6 
z0865 
2UAC 
2WAD 
ZOAE 
<OHt 
cûna 


C26:20 
2204F% 
15 
DS 
FAUEF 9 


11D@:@ 
19 


2206F9 
2F 


2204F9 
LE 

C28E7;0 
C3Ca20 


C1 EXIT 


ps 


CHAR GRAFHIC MANAGEMENT ROUTINE 


JNZ 52 :S1 LIGNE<>@ CONTINUE 
SHL.D QF9R4H {SAUVE ADDR EN F984/5 
INX D 

FUSH D :SAUVE NEBYTE+1 SUR STACK 
LDA QFYATH 

ANI 7FH :A=ASC(CHAR) IAND #7F 
MOV E,A 

MVI D aH :DE=A 

MOV H,D 

MOV L,E :HL=DE=A 

DAD H 

DAD H 

DAD H 

DAD D 

DAD D sHL=10%A 

LXI D TABL 

DAD D :HL=<FOU> + 10%A 

SHLD QFSA6H :SAUVE EN F906/7 

FOF D 

MUI B mA 

LLA DH : TEST SI MODE 4/16 COULEURS 
AN1 2H 3S1 MODE 4 COULEURS GOTO 55 
JNZ ss 5 SINON 16 COULEURS 
LHLD GE 906H 3 TRANSFERT BYTE DE LA 
MOV An : MEMOIRE EN A 

INX H :CALCULE NOUVELLE ADRESSE 
SHLD @F 06H : ET SAUVEGARDE 

CMA 

LHLD QF924H :ECRIT SUR ECRAN 

MOV M,A 

DCX H 

MVI M 80H 

DAD D :CALCULE NOUVELL ADRESSE 
SHLD QF904H 5 ET SAUVEGARDE 

DCR R 

INZ SE ;CONTINUE 51<>0 

JM EXIT : GINON EXIT 

LHI.D GF?Z6H :1DEM CI-DESSUS 

MOY A,M ; MAIS 4 COULEURS 

INX 4 

SHILU QF9U64 

LHLD QFSUAi 

MOV M, A 

LUX H 

MVI M @H 

DAD D 

SHLD CRETE TE 

DCR E 

JNZ 55 

FOP B 3REFRISE REGISTRES 
FOF D 

FOP H 

FOF FSU 

EL 

RET ;ET RETOUR BASIC/MLP 
DW @FFFFH 

DW GFFFFH 

DW QFFFFH 
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2@CC FFFF DW QFFFFH 

ZOCE FFFF DW OFFFFH 

20D0 GO TAEL DB aH 

Z@D1 END END 

END :20D1 EXIT :20CQ Si :2027 S2 :2063 S3 :208E SS 


START :2000 TABL :2@D0 


10 REM TEST DE LA ROUTINE CHAR GRAPHIC 
20 CLEAR 256 

30 COLORT 8 00 @ 

40 MODE Q@ 

5a COLORG 8 0 @ @ 

60 MODE 5 

65 PRINT "ESSAI":WAIT TIME 50 
70 FOR Y=0.0 TO YMAX STEP 10.0 
ga FOR X=0.0 TO XMAX/7.0 

9  POKE #F901,X 

100  FOKE #F902,Y 

110 POKE #F903,H67 

120 CALLM #2000 

130  NEXT X 

14@ NEXT Y 

159 G-=GETC:IF G=0.0 GOTO 150 
169 MODE @ 

170 END 
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16849S+E270/ '- ‘4xc 2264. Es NP NTA 
l'iuybspsqe TJ IN I1ZAXMANLSAOdONNIALIH9130194H 


TION PAT ea les 7 mc 1: 2zfxmanasub 
L'IHO13094HDé <=) ! '6849SHE2TQ/ ‘— +xc > EAEH, 
zfxmanaqsubdouutaf rubspsqe TJ I 1ZAXMANNILSAS 
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pau TITL “RENUMBER WITH REMTEST, (DAICLIC NO 15) 
o20G ACER MONET SECRET EE D DE LE nor e ns ce Ses 
uñnon : MODE D'EMPLOI : 

vave £ XAZ=(FREMIERNO SHL 14)+1[NCREMENT 
vauu ï XCALLM #A000,A% 

206S 5 LES INSTRUCTIONS ‘REM' SEULES SUR 
20a8 5 UNE LIGNE PEUVENT EIRE DOSÉES D'UN 
couv 5  NLIMERQO DE LIGNE POUR LA RENUMEROTATION 
cons : CE NUMERO EST ATTRIRUE À LA LIGNE 
aeaoÿ 5: S'il EST PLUS GRAND QUE CELUI EXISTANT 
aa : L'INSTRUCTION SE PRESENTE AINSI : 
aena ; 123 REM 1000 

2a0û : 124 REM 1Q ESSAI 

waëg ; 125 REM 700000 TEST 

nue : LA TROISIEME LIGNE EST JGNOREE CAR 
ln] 3 LE NUMERO DE LIGNE EST TROF GRAND 
ap Ve en nt een tre 
vuuu OKG saauH 

5080 F3 RENUM DI1 

saut F5 FUSH FSW 

599% CS PUSH KE 

5063 DS FUSH D 

oUW4 ES PUSH H 

SUQS  ZSEFF MVI À @FFH 

0007 EF RST 5 

5008 15 DR 18H 

900% SEC MVI A ACH 

S00EB EF RST 5 

SOC 3 DB FH 

S520D SEUL MVI À 1H 

S0DF 523101 STA 151H 

SQ17 211253 LXI H COMML 

5U15 CDD4DA CALL BDADA4H 

5018 CDDAD6é CALL @D6DAH 

SO1EH F3 DI 

SOI1C FEFF CPI @FFH 

OPIE CADA4SI JZ EXIT 

SUZ21 SA409D0 LDA 40H 

5024 520D54 STA RESERV 

S027 3SEZQ MVI À TAH 

9029  CDYSDE CALL AD808H 

SUXC El FOF H 

nn? ES FUSH H 

SOZE 56 MOV D.M 

DO2F 23 INX H 

S0:Q SE MOV E,M 

DEL 25 INX H 

SUS2 EB XCHG 

SO33 7C MOV A,H 

5034 RS ORA L 

SU3S C24150 JNZ SUITEI 

1038 ZL6ESS LXI H COMM2 

995  CDDA4DA CALL BDADA4H 

SOSE CS0451 JP EXIT 

5041 221054 SUITEL SHLD FIRST 

5044 ER XCHG 

9045 56 MOV D,M 

S046 23 INX H 
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5947 SE 

$5048 ER 

5049  7C 

S044 E5 

SU4R C25750 

DU4E 219353 

2051 CDND4DA 

3054 C52451 

907 FEUES4 SUITEZ 
SOSA ZA1054 TESTL 
USD 44 

SASE  4D 

SQSF ZA9FO2 

506? EEK 

52063 2AA102 

5066 2B 

5067 EH 

S068 DS TEST1Q 
9069 7E 

S06A 23 

S06H ES 

5060 CDAASI 

SU6F 68 

5070 69 

5071 EH 

5072 Z2ACES4 

5275 19 

5076 D28450 

5079 Z1RCSS 

3597C CDDADA 

507F E1i 

50830 Oo1 

S081 C3:7451 

5084 44 TEST20 
5085 4D 

5086 El 

5087 Di 

5088 CDTIQDE 

98H CD14DE 

S08E  DAGESQ 

5971 ZAASDZ REN1 
5094 221254 

9097 ZAIDSA 

SA9A 44 

209K 4) 

5a9C  2A9F@2 

509F ER 

S0AQ ZAA1DZ 

50A35 ZE 

5044 ER 

SQAS DS RENG10 
SUR6S EB 

SUA7 241254 

S0AA ER 

99AB 7E 

SYAC  3D 

SGAD Fa 


SOAE 


23 


RENUMEER WITH REMTEST (DAICLIC NO 15) 


MOV E,M 
XCHG 
MOV A.H 
ORA L 
JNZ 

LXI H 
CALL. 
JMF 
SHLD 
LHLD 
MOV E,H 
MOV CL 
LHLD 
XCHG 
LHLD 
DCX H 
XCHG 
FUSH D 
MOV A.M 
INX H 
FUSH H 
CALL 
MOV H,H 
MOV L,C 
XCHG 
LHLD 
DAD D 
JNC 

LX1 H 
CALL 
FOF H 
FOF D 
JMP 

MOV E,H 
MOV C,L 
FOP H 
POP D 
CALL 
CALL 

JC 

LHLD 
SHILD 
LHLD 
MOV B,H 
MOV C.L 
LHLD 
XCHG 
LHLD 
DCX H 
XCHG 
PUSH D 
XCHG 
LHLD 
XCHG 
MOV A.M 
DCR À 
FUSH FSW 
INX H 


SUITEZ 
CONMZ 
@DADAH 
EXIT 
IN 
FIRST 


Z27FH 


ZA1H 


TSTREM 


IN 


TEST20 
COMM4 
@DAD4H 


EXIT 


@DETQH 
@DE 14H 
TEST1Q 
2A3H 

FTABLE 
FIRST 


29FH 


ZA1H 


PTABLE 


3 
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SGAF  CDGAS1 
SOB2 7E 
OBS 12 
SOH4 13 
SGES 70 
SaBé 23 
SGB7  7E 
s50B8 12 
5089 13 
SOBA 71 
SOBE 78 
SOBC 12 
SOBD 13 
SOBE 79 
5QBF 12 
SCO 13 
SQC1 ER 
SOC2 221254 
“QC5 EB 
SeCé F1 
SOC7 ES 
S52C8 60 
SUC9 69 
SACA EB 
SOCB  2AGE54 
SQCE 19 
SUCF 44 
SàDQ 4D 
SGD1 El 
SUD? Di 
52D3  CDEQDE 
5006 CD14DE 
S9D9  DAA550 
SQDC 249F02 REN2 
GDF ER 
S2EQ 244102 
SUE3 2B 
SQE4 CS 
SUES 42 
SCE6 44 
SCE7 221801 
SEA EB 
SQEB 221901 
SUEE 60 RLS20 
SDEF 49 
SUFG CD14DE 
HUFZ  CAFC50 
SUFé CD9451 
SUF9  C3EE 50 
SOFC 87 RLSFIN 
SQFD Ci 
30FE  26@D54 
5181  CDG8D8 
5104 EL EXIT 
5185 D1 
5106 Ci 
S197 Fi 


5108 


AO 


RENUMEER WITH REMTEST (DAICLIC NO 15) 


CALL 
MOV A,M 
STAX D 
INX D 
MOV M,B 
INX H 
MOV A.M 
STAX D 
INX D 
MOV M,C 
MOV A,H 
STAX D 
INX D 
MOV A.C 
STAX D 
INX D 
XCHG 
SHLD 
XCHG 
FOP FSU 
FUSH H 
MOV H.B 
MOV L,C 
XCHG 
LHLD 
DAD D 
MOV B.H 
MOV C,L 


TSTREM 


PTAELE 


IN 


QDE::QH 
QDE 14H 
RENQ10 
29FH 


ZA1LH 


118H 


119H 


QDE 14H 
RLSF IN 
SLINE 
RLS20 


RESERV 
GD80RH 
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5109 C9 
5104 F5 TSTREM 
S10B ES 
S1QC DS 
S10D C5 
S10E 23 
Si9F 23 
5110 7E 
S111 FEA9 
S115 C22851 
Stié 23 
5117 7E 
9118 R7 
5119 CA2851 
511C CD?D91 
S1iF El. 
5120 CD14DFE 
S1235 D22751 
5126 EH 
5127 E5 EXITR2 
5128 Ci EXITR 
S129 D1 
5124 Ei 
5128 F1 
512C C9 
S12D ES EXVAL 
S12E 0600 
5130 3C 
5131 4F 
5132 23 EXVAL3 
51535 4 
5134 78 
5135 FEU6 
5137 D24R51 
3 9 
D24R51 
7E 
S13F E67F 
5141 FESQ 
514% DA4ES1 
5146 FE3A 
5148 DA3251 
514B A5 EXVAL2 
SL4C CABFS1i 
514F 4 
5150 210000 
5153 221454 
5156 EL EXVAL6 
9157 23 EXVALS 
5158 05 
5159 CASASI 
515C 7E 
5:5D E67F 
515F D6:0 
5161 CAS751 
5164 E5 
5165 11D852 
5168 2622 


RENUMBER WITH REMTEST (DAICLIC NO 15) 


RET 
PUSH FSW 
PUSH H 
FUSH D 
FUSH B 
INX H 
INX H 
MOV A.M 
CPI 


XUHG 
FUSH H 
FOP B 
FOP D 
FOF H 
FOF FSW 
RET 
FUSH H 
MVI E 
INR À 
MOV CA 
INX H 
INR E 
MOV A.B 
CFI 

JNC 


44 


GA9H 
EXITR 


EXITR 
EXVAL 


@DE 14H 
EXITRE 


aH 


6H 
EXVALZ 


EXVALZ 


7FH 
50H 
EXVAL2 
FAH 
EXVAL3S 


EXIVA 


aH 
MVALN 


EXVAL4 


7FH 
TOH 
EXVALS 


TABDEC 
aH 
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$5164 68 

S516B 2B 

5160 29 

S16D 19 

S16E SE 

S16F 23 

5170 56 

5171 210000 

5174 19 EXVAL7 
5175 DASFS1 

5178 SD 

5179 C27451 

517C EB 

S17D 2A1454 

5180 19 

S181 DASFS1 

5184 221454 

5187 C35651 

S1RA 2A1454 EXVAL4 
518D EB 

S18E C9 

S18F El EXIVA 
5190 110000 

5193 C9 

95194 DS SLINE 
$19S ES 

9196 03 

5197 GA 

5198 720001 

519B O3 

519C GA 

519D 320101 

5140 OR 

S1A1 CDAEEF 

5144 3E08 

S1A6 CD2ADB 

9149 CDBFS1 LOE262 
S1AC GA 

S1AD B7 

SLAE F2B6851 

S1H1 CDFSEF 

S1B4 ZA 

5185 CSA95S1 

S1H8 COFSEF LOEZ63 
S1FH QD 

51BC Eli 

S1BD Di 

S1BE C9 

S1BF GA STAT 
51C0 O3 

51C1 FE89 

S1C3 CAFIS1 

S51C6 FEBA 

S1C8 CAF151 

91CB FEAB 

31CD CAU752 

51D@ FEA7 

51D2 CA1952 


48 


RENUMBER WITH REMTEST (DAICLIC NO 15) 


MOV L,B 
DCX H 

DAD H 

DAD D 

MOV E,M 

INX H 

MOV D,M 

LXI H aH 

DAD D 

JC EXIVA 
DCR A 

JNZ EXVAL7 
XCHG 

LHLD MVALN 
DAD D 

JC EXIVA 
SHLD MVALN 
JMP EXVAL6 
LHLD MVALN 
XCHG 

RET 

POP H 

LXI D cH 

RET 

PUSH D 

PUSH H 

INX EH 

LDAX E 

STA 100H 
INX B 

LDAX B 

STA 121H 
DCX E 

CALL QEFAEH 
MVI À 8H 
CALL GDBZAH 
CALL STAT 
LDAX B 

DFA 4 

JP LOE263 
CALL QEFF 5H 
DE ZAH 
JMF LOE26? 
CALL QEFF SH 
DE @DH 
POP H 

POP D 

RET 

LDAX B 

INX E 

CPI 89H 

JZ GOTO 
CPI BAH 

Jz GOTO 
CPI GAEH 
JZ IFTHEN 
CFI GA7H 
Jz IFGOTO 


A3 
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91D5 FE94 CFI 94H 
51D7 CAF151 Jz GOTO 
S1DA FE95 CPI 95H 
S1DC CAZ3D52 JZ LIST 
51DF FEAE CFI GAEH 
SiE1 CA5452 Jz ONGOTO 
S1E4 FEAF CFI GAFH 
SiE6 CA7552 JZ ONGOS 
S1E9 FEA6 CPI GAEH 
S1EB CAZ752 JZ IFSTAT 
DHIHE C3CEEC STATO  JMF QECCEH 
SiFi CDF751 S0TO CALL NLINE 
51F4 CICEEC JMF QECCEH 
SLF7 F5 NLINE FUSH PSW 

S1iF8 GA LDAX Æ 

SiF9 05 INX & 

S1FA 57 MOV D,A 

51FB OA LDAX E 

S1FC SF MOV E,A 

S1iFD CD8652 CALL FIND 
5200 7H MOV A,E 

5201 02 STAX B 

5202 OH DCX BR 

5203 74 MOV A,D 

5204 02 STAX B 

5205 F1 FOP PSW 

5206 C9 RET 

5207 CD3652 IFTHEN CALL PRIF 
S20A CDFCEF CALL QEFFCH 
S20D CD78CE CALL QCE78H 
5219 15EE DW QEE 15H 
5212 CDF751 IFL CALL NLINE 
5215 CDAEEF CALL QEFAEH 
5218 C9 RET 

5219 CD3652 IFGOTO CALL FRIF 
S21C CDFCEF CALL GEFFCH 
521F  CD78CE CALL QCE 78H 
5222 fF9ce DW QC8F9H 
5224 C31257 JMP IFL 
5227 CD3652 IFSTAT CALL FRIF 
S22A CDFCEF CALL QEFFCH 
S22D Cp78CE CALL ACE78H 
5230 15EE DW OEE1SH 
S232 03 INX B 

5235 C3EFS1 JMP STAT 
5236 21E252 FRIF LXI H IF 
52#9  CDD4DA CALL. @DAD4H 
S23C C9 RET 

523D 21E652 LIST LXI H SLIST 
5240 CDD4DA CALL @DAD4H 
5243 CDF751 CALL NLINE 
5246 CDAEEF CALL QEFAEH 
5249 CDFSEF CALL OEFFSH 
S$24C 2D DE té 
524D CDF751 CALL NLINE 
5250 CDAEEF CALL QEFAEH 
5253 C9 RET 

5254 21ECS2 ONGOTO LXI H SON 


SPL Vi.1 


5257 
525A 
525D 
5260 
5262 
5263 
5264 
5265 
5268 
5268 
5260 
526D 
926E 
526F 
5272 


CDD4DA 


C36252 
7A 


C24A752 
23 

D1 

56 

23 

SE 
C3D652 
23 

23 

23 
CD14DE 
DA9452 
CDSEDD 
F5 
3E00 
323101 
21F052 
CDD4DA 
CS 
2100081 
CDAEEF 


FAGE 7 


ONGQ 


ON10@ 


ONGOS 


FIND 


FIND1Q 


[as 


FIND2@ 


A4 


RENUMBER WITH REMTEST (DAICLIC NO 15) 


CALL @DAD4H 
CALL QEFFCH 
CALL QCE78H 
DW QCEF 9H 
LDAX E 

INX B 

PUSH PSW 

CALL NLINE 
CALL GEFAEH 
POP PSW 

DCR 4 

RZ 

FUSH PSW 

CALL QCE70H 
JMP ON1@ 
LXI H SON 
CALL @DAD4H 
CALL QEFFCH 
CALL ACE78H 
DW @CCO1H 
JMP ONa@ 
MOV A.D 

ORA E 

RZ 

FUSH B 

PUSH D 

MOV B,D 

MOV C,E 

LHLD PTABLE 
XCHG 

LHLD 2A3H 
MOV A,B 

CMP M 

INX H 

JNZ FIND20 
MOV A,C 

CMP M 

JNZ FIND20 
INX H 

POP D 

MOV D,M 

INX H 

MOV E,M 

JMP FFIND 
INX H 

INX H 

INX H 

CALL QDE14H 
JC FIND1@ 
CALL @DDSEH 
PUSH PSW 

MVI A oH 

STA 131H 
LXI H MESS 
CALL @DAD4H 
PUSH B 

LXIB 100H 
CALL GEFAEH 


SUITE1:S5041 
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RENUMBER WITH REMTEST (DAICLIC NO 15) 


FOP EF 
CALL 
MVI @ 
STA 

POP PSW 
MVI A 


RENU19:S50AS  REN2 


SPL V1.1 PAGE 8 
S2Cé C1 

5207 CDSEDD 

S2CA 3E01 

S2CC 227101 

S2CF Et 

5200 :E08 

S2DZ CD2ADA 

5205 D1 

S2D6 C1 FFIND 
S2D7 C9 

52D8 G100  TABDEC 
S2DA eu 

S2DC 440a 

S2DE E80z 

52E0 1027 

522 494620 IF 
52ES 0 

S2E6 404953 SLIST 
S2ER 90 

S2EC 4F4E2Q SON 
S2EF  @9 

2FQO 425241 MESS 
5511 GO 

5312 454E47 COMM1 
5329 27 

5324 494D50 

5334  @D@D 

5336 505245 

5356 @GDAD 

5358 304252 

576H  GDGDAQ 

SE 464952 COMM2 
5390  QDADUU 

5593 494E43 COMM3 
H3E9  ADGDOG 

S3RC 525441 COMM4 
ON, 

S3SEF QD 

S3F0 205745 

5494  ADODG 

54QD @0 RESERV 
S4QE IN 
5410 FIRST 
541% FIABLE 
5414 MVALN 
5416 END 
RENUM _: 5200 

REN1 :5091 


TSTREM: 510A 
EXVAL6: 5156 
LYEZ62:5149 
$F THEN: 5207 
ONGOTO: 5254 


[as 
SON 


1929F 
1 92EC 


RESERV : 540D 


EXITRZ:%127 
EXVALS:5157 


LOE26S:S1R8 STAT 


@DDSEH 
1H 
131H 


8H 
GDEZ2AH 


‘BRANCHEMENT INEXISTANT EN LIGNE 
@H 

‘ENCLENCHEZ (AU CHOIX) L’ 

27H 

IMPRIMANTE ‘ 

@DH, DH 

"PRESSEZ <SFACE>+ POUR RENUMEROTER’ 
GDH,@DH 

"<BREAK> FOUR SORTIR’ 

@DH,@DH.GH 

"FIRST=0, RENUMEROTATION IMPOSSIBLE ‘ 
@DH,@DH,UH 

* INCREMENT=0, RENUMEROTATION IMPOSSIBLE 
@DH,@DH.@H 

"STATEMENTS AU-DESSUS DE,65535 APRES RENUMEROTA 


GDH 
* RENUMEROTATION IMPOSSIBLE" 
@DH,@DH,@H 


2H 
ZH 
2H 
2H 


SUITEZ2:5957 TESTL :SQSA TESTI1U:5068 TEST20:5084 


:S50DC RLS20 :SQEE RLSFIN:S@FC EXIT :5104 


EXITR :5128 EXVAL :512D EXVAL3:S132 EXVAL2:514B 
EXVAL7:5174 EXVAL4:518A EXIVA :518F SLINE :5194 


291BF STATO :5S1EE GOTO :51F1 ONLINE :51F7 


FE. 29212 IFGOTO:S219 IFSTAT:5227 PRIF :5236 LIST :525D 
ONDQ :5267 ON1@ :5265 ONGOS :5275 FIND :5286 FIND1G:5294 
FIND20:5247 FFIND :52D6 TABDEC:52D8 IF :192F2 SLIST #52E6 
MESS :S52F0 COMM1':5312 COMME :536E COMMS :5393 COMM4 :53BC 
IN :540E FIRST :%41Q FPTABLE:5412 MVALN :5414 END :5416 
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REMARQUEZ VOS REMARQUES EN SPL 


Claudius Morin, 6 rue robert Houdin 14000 CAEN “ÆS 31851532 


Vous pouvez mettre en valeur vos remarques dans un programme 
en assembleur SPL en utilisant le petit programme suivant. 


La seule obligation, c'est d'écrire le texte des remarques 
après la 2**°+° tabulation. 


Le programme teste cette 2°*+° tabulation et s’il n’y en a 
pas une 3‘**°+°, il remplace le code 09H de la 2*°*°* tabu- 
lation par le code OEH qui est caractéristique de l'écriture 
expansée sur une ligne pour une imprimante au standard 


EPSON. 


Utilisation : 


chargez le langage SPL, puis le code source contenant des 
remarques, vérifiez que le texte commence à la 2°°°* tabu- 
lation, repassez en UTILITY, chargez et lancez la routine, 
revenez au SPL, votre code source est modifié et peut être 


imprimé. 


SPL V1.1 


PORPCE CECI CEECETE CE CECI 


4 me 0 O0 10 CN CAIN 


DEBSOU 
F INSOU 


12 


BCL1 


A 
on 


A7 


PAGE 1 


Expanse sur une 
de remarque SFL 
sur 
en remplacant !l 
par le code 14D 


Claudius Morin 


imprimante Citizen 


ligne 


e Zeme 


juillet 1988 

51 85 15 =? 

EQU 8503H scontient l'adresse du debut du source SPL 
EQU 8505H 5 L de fin 
EQU ODE 14H scompare HL et DE 

EQU ODE3OH 5 HL=HL+A 

EQU OFDH scode ligne de remarque 
EQU SH scode de tabulation 

EQU OEH scode ligne expansee sur imprimante 
ORG 300H 

PUSH B 

CALL DEB 

POF B 

RET 

LHLD FINSOU 

XCHG 

LHLD DEBSOU 

CALL CPHLDE 

RNC 

MOV A,M 

ANI 3FH 

MOV B,A ; longueur 

INX H 

PUSH H 

CALL ADHLA 

XTHL 

MOV A, 

CPI REM 

JNZ ECL2 ssuite si remarque 

MOV A,B 

CPI 3H 

JC BCL2 ssuite si + de 3 octets 
INX H 

MOV A,M 

CPI TAB 

JNZ BCL2 ssuite si ier tab 

INX H 

MOV A,M 

CPI TAB 

JNZ BCL2 ssuite si 2eme tab 

INX H 

MOV A,M 

CPI TAB 

DCX H 

JZ BCL2 ssaut si 3eme tab 

MVI A EXF sexpanse sur une ligne 
MOV M,a 

FOF H 

JMF BCL1 

END 
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GRAPHIC-TOOLKIT III : figures géométriques. 


d 
0 à 511 
0 


- rayon donne le rayon du cercle, ce dernier peut dépasser les limi- 
tes de l'écran sans donner d'erreur (la partie hors écran sera 
ignorée). 


- couleur peut prendre les valeurs O à 23. 


ELLIPSE x,y rayon-x,rayon-y couleur 


- x,y désigne le centre de l'ellipse 
x = O à 511 
y = 0 à 255 ‘ 


- rayon-x,rayon-y donne la distance en X et Y de l'ellipse, cette 
dernière peut dépasser les limites de l'écran sans donner d'erreur 
(la partie hors écran sera ignorée). 


- couleur peut prendre les valeurs O à 23. 


remarque 


1) ELLIPSE est le seul moyen d'obtenir un cercle en mode 7/8 : 
pour avoir dans ce mode CIRCLE X,Y R C 
il faut donner ELLIPSE X,Y R*1,5:R C 


2) de meme pour obtenir un carré, la coordonnée X doit avoir un 
facteur de correction de 1.5 


FILL=ON 
FILL=OFF 


Cette instruction permet de remplir (FILL=ON) ou ne pas remplir 
(FILL=OFF) le cercle ou l'ellipse avec la couleur donnée dans 
l'instruction CIRCLE ou ELLIPSE. 

Après RUN, on a FILL=OFF. 


FRAME x1,y1 x2,y2 couleur 
FRAME x1,y1 x2,y2 couleur épaisseur 
FRAME x1,yi x2,y2 couleur épaisseur-x,épaisseur-y 


Avec cette instruction, on peut dessiner des cadres de différentes 
épaisseurs. 
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Dans le premier cas,on dessine un rectangle d'épaisseur 1 (=1 ligne) 
sans remplir la figure. Cela fait gagner 4 DRAW. 


Dans le deuxième cas, on dessine un rectangle d'épaisseur quelconque 
le cadre se remplit vers l'intérieur si épaisseur > 1. 


Dans le troisième cas,on dessine un rectangle d'épaisseur différente 
en X et en Y. 


POLY x1,y1 x2,y2 .... xn,yn couleur 


Avec cette instruction, on peut dessiner une ligne brisée fermée : 
par exemple un polygone. 


De la première paire de coordonnées, on trace une ligne jusqu'à la 
deuxième, etc .... jusqu'à la paire de coordonnées xn,yn et pour 
fermer de xn,yn à x1i,y1. 


MDRAW x1l,y1 x2,y2 .... xn,yn couleur 


Avec cette instruction, on peut dessiner une ligne brisée non fermée 


De la première paire de coordonnées, on trace une ligne jusqu'à la 
deuxième, etc .... jusqu'à la paire de coordonnées xn,yn. 


GRAPHIC-TOOLKIT III : remplissage de surfaces. 


Ce toolkit offre quelques instructions intéressantes pour le remplis- 
sage de figures bordées dans tous les modes graphiques } couleurs. 

Il est aussi possible de remplir plusieurs surfaces en meme temps. 
Ceci nécessite une place mémoire supplémentaire. 

La coordonnée x,y donnera l'endroit où on démarre le remplissage avec 
la couleur donnée par FCOLOR jusqu'au bord dont la couleur est donnée 
par MCOLOR (ces 2 couleurs peuvent etre identiques). 

Ces paramètres seront mémorisés dans le buffer par STORE. PAINT 
commencera le remplissage des figures selon les renseignements du 
buffer. Ce dernier doit etre vide au départ, on peut le vider par 
l'instruction EMPTY ou RUN. Après un PAINT, le buffer est vidé. 

Le remplissage de figures peut etre stoppé par BREAK. 

Si on donne un ordre PAINT avant le STORE ou EMPTY suivant, s'il n'y 
a pas de changement de mode (excepté changement de mode x <-> xA), le 
remplissage sera effectué jusqu'à la fin. 


FCOLOR=couleur 


La couleur donnée par FCOLOR sera la couleur de remplissage et sera 
donc implicite pour STORE ou PAINT si elle n'est pas donnée directe- 
ment dans une de ces deux instructions STORE ou PAINT. 

couleur peut prendre les valeurs O0 à 23. 

A l'initialisation FCOLOR=22. 
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MCOLOR=couleur 


La couleur donnée par MCOLOR sera la couleur de bord des figures. 
Remarquons que O/XMAX/YMAX seront considérés comme bords. 

couleur peut prendre les valeurs 0 à 23. 

A l'initialisation MCOLOR=21. 


STORE x,y cr cb 
STORE x,y cr 
STORE x,y 


cr = couleur de remplissage. 
cb = couleur de bord. 


Les différents paramètres seront mémorisés dans le buffer,paramètres 
avec lesquels on commencera le remplissage des figures lors du PAINT 
Si on veut mettre plus d'informations que le buffer ne peut en con- 
tenir, ces dernières seront perdues. 

Les valeurs des différents paramètres seront validées lors du PAINT. 


x = O0 à 511 
y = 0 à 255 
cr = O à 23 
cb = O à 23 


PAINT x,y cr cb 
PAINT x,y cr 
PAINT x,y 


cr = couleur de remplissage. 
cb = couleur de bord. 


Si après l'instruction PAINT, on ne donne pas de paramètres, on 
démarre le remplissage des figures selon les paramètres stockés dans 
le buffer. 

Si on donne des paramètres, cela correspond à un STORE avant le 
PAINT (cela permet par la seule instruction PAINT de mémoriser les 
dernières données). 


x = O à 511 

y = 0 à 255 

cr = O0 à 23 

cb = O à 23 
EMPTY 


Cette instruction permet de vider le buffer. 


RESERVE n 
RESERVE adresse-départ ,adresse-fin 
ST.BUF= adresse 


Comme dit précédemment, on a besoin d'un buffer pour stocker les 
coordonnées et les couleurs des figures à remplir. 
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Dans le premier cas, n donne la taille du buffer et ST.BUF= donne 
l'adresse de début du buffer (en standard ST.BUF=#2EC). 


Dans le deuxième cas, on n'a plus besoin de ST.BUF= 
Pour mémoriser un ordre, on a besoin de 5 bytes. On peut donc calcu- 
ler facilement la taille du buffer. 


Exemple : si on veut mémoriser 64 ordres, on aura besoin de 64 * 5 
bytes = 320 bytes (= #140) 
ST.BUF= #2EC 
buffer= #140 
HEAP = #42C 


Remarques 


1. Si on ne définit pas de buffer,on aura le message : UNDEFINED 
STORE-BUFFER 


2. On peut définir le buffer dans un tableau en BASIC : 
DIM A(255,1):RESERVE VARPTR(A(O,0)),VARPTR(A(255,1))+3 


3. 11 existe encore une limite pour PAINT au niveau de la couleur 
de remplissage : la couleur de remplissage,par exemple ,COLOR=23 
sera reconnue erronément comme couleur de bord lorsque la 
couleur de remplissage se trouvera strictement horizontale 
entre deux points de couleur de bord. Par contre si la ligne 
n'est pas strictement horizontale, la couleur de remplissage 
sera exécutée normalement. 


CPAINT x,y cr cb 1,..., cb n 
cr = couleur de remplissage. 
cb 1,.. ,cb n = couleurs de bord. 


Cette version de PAINT travaille aussi en mode 16 couleurs. 

On peut donner ici plusieurs couleurs de bord mais la couleur de 
remplissage ne peut etre une des couleurs de bord. 

Le remplissage commencera aux coordonnées x,y avec la couleur de 
remplissage cr. 

CPAINT n'a pas besoin de buffer mais on ne remplit qu'une figure à 
la fois. 

0/XMAX/YMAX sont considérés comme bords. 

En mode 16 couleurs,on peut utiliser les couleurs 20 à 23, on utili- 
sera les couleurs correspondantes du COLORG. 


x = O à 511 
y = 0 à 255 
cr = O0 à 23 
cb = O à 23 


GRAPHIC-TOOLKIT III : hardcopy. 


Ce hardcopy peut travailler dans tous les modes graphiques avec des 
facteurs d'agrandissement et nuances de gris quelconques. v. 
Le choix du type de résolution, du nombre de nuances de gris et de la 
couleur d'écran représentée par une nuance de gris, se fera par 
l'instruction HCMODE=. 

On utilisera l'instruction HCOLOR si on veut changer l'attribution 
standard d'une couleur d'écran à une nuance de gris. 
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En standard sont définies 2 tables. Dans chaque table, il y a 5 possi- 
lités d'impression pour les imprimantes type EPSON. 


HCMODE=n 


n peut prendre les valeurs 0 à 9. 


Il existe 2 possiblités de présentation : 
- présentation droite = valeurs paires. 
- orientation à 90 degrés = valeurs impaires. 


Table ! résolution ! pts/page ! nuances ! présentation ! présentation 
! ! ! de gris ! normale ! à 90 degrés 
aies ones lensensémsissrescoiatesméemasseosemm@ tissé ss 

0 ! 1 % À ! 480/864 1! 2 ! HCMODE=0 ! HCMODE=1 

1 ! Lx 1 ! 960/864 1! 2 ! HCMODE=2 ! HCMODE=3 

2 ! 2. * 1 ! 480/864 1! 3 ! HCMODE=A ! HCMODE=5 

3 ! 4%: 2 ! 320/432 1! 5 ! HCMODE=6 ! HCMODE=7 

in ! Be 2 1 240/432 1! 9 ! HCMODE=8 ! HCMODE=9 


- à l'initialisation ou après un RUN : HCMODE=0 
- il existe une nuance de gris standard pour chaque couleur d'écran 
on pourra changer ce mode standard par l'instruction suivante. 


HCOLOR couleur d'écran,nuance de gris 


couleur d'écran peut prendre les valeurs 0 à 23. 
nuances de gris, comme les tables, sont numérotées de O0 à nombre 
de nuances de gris-1. 


Exemple : HCMODE=6 : les numéros des nuances de gris seront O à 4 


La nuance de gris = O est le noir et cela va en augmentant jusqu'au 
blanc. 


bord gauche est une valeur qui représente, exprimée en nombre de 
points graphiques, la marge à gauche du hardcopy. 

Le nombre de colonnes est indépendant de l'agrandissement par HCMODE 
mais est dépendant de la résolution de l'imprimante en largeur. 

Le bord gauche sera raccourci si le dessin ne tient pas sur la 
feuille de papier. On pourra donc centrer un dessin sur la droite en 
donnant une valeur très grande à bord gauche (par exemple 1000). 

Si on demande à imprimer plusieurs blocs graphiques dans une meme 
instruction HCOPY, ces blocs seront placés les uns à coté des autres 
Dans ce dernier cas, le paramètre bord gauche signifie la distance 
par rapport au bloc voisin. 


Si l'image est plus large que la largeur du papier, on aura le 
message NUMBER OUT OF RANGE. 


Les paires de coordonnées X,Y donne la zone d'écran à imprimer. 
La première paire de coordonnées donne le premier point à imprimer 
en haut à gauche sur le papier et la deuxième le dernier point en 


bas à droite. 


Si on change l'ordre des coordonnées,la présentation sur papier sera 
différente de celle de l'ecran: 
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présentation droite (HCMODE=valeurs paires) 


- présentation normale Xgauche,Yhaut Ydroite,Ybas 
- présentation à l'envers Xdroite,Ybas Ygauche,Yhaut 
- refléter suivant l'axe des X Xgauche,Ybas Xdroite,Yhaut 
- refléter suivant l'axe des y Xdroite,Yhaut Xgauche,Ybas 


* orientation à 90 degrés (HCMODE=valeurs impaires) 


- 90 degrés vers la droite Xgauche,Ybas Xdroite,Yhaut 
- 90 degrés vres la gauche Xdroite,Yhaut Xgauche,Ybas 
- rotation à gauche et reflet 

suivant l'axe des Y Xgauche,Yhaut Xdroite,Ybas 
- rotation à droite et reflet 

suivant l'axe des Y Xdroite,Ybas Xgauche,Yhaut 


HC.EXT=adresse 


Cette instruction permet de construire soi-meme ses propres tables 
pour le hardcopy. 
Cela semble très compliqué, mais est-ce vraiment utile ? 


GRAPHIC-TOOLKIT III : format d'impression. 


FPRINT titre$ bord-gauche,largeur no-page ligne/page insert outadr 


FPRINT peut etre abrégé en F? 

HELP.F? vient en aide pour rappeler les différents paramètres. 
Tous les paramètres sont optionnels (de la droite vers la gauche) 
Les valeurs par défaut sont : FPRINT "" 6,76 1 66 6 #OODD94 


- titre$ : est un string qui sera imprimé au début de chaque page 

et suivi d'une ligne blanche.Si on a besoin d'une deuxième 
ligne de titre ou de plusieurs lignes blanches, on peut 
placer un CHR$(13) dans le string; ce qui suivra le 
CHR$(13) sera imprimé sur la ligne suivante. 

Le string aura un maximum de 90 caractères. 

I1 existe un caractère particulier pour le titre : & 

A l'endroit dans le string où on trouve ce caractère &, 
ce dernier sera remplacé par le numéro de page. 


- bord-gauche : nombre de blancs à gauche avant d'imprimer une ligne 


- largeur : nombre de caractères par ligne (y compris le nombre de 
caractères du bord-gauche). 


- no-page : numéro de la première page (servira pour le & dans le 
titre). 


- ligne/page : nombre de lignes par page (y compris la ligne titre 
et la ligne blanche). 


- insert : lors d'une continuation à la ligne suivante, on donne 
le nombre de’ blancs à insérer en plus du bord-gauche 
(comme dans LIST du BASIC). 


- adrout : normalement, l'édition est envoyée sur RS232 (#DD94) mais 
on peut spécifier une autre adresse pour l'édition. 


& 1 
Exemple: FPRINT "EXEMPLE - Page &" 10,50 10 66 6 


Re: 1 2 3 n 5 
‘colonnes ----- > 12345678901234567890123456789012345678901234567890 
EXEMPLE - Page 10 


10000 FILL 0,0 100,200 21:DRAW 20,25 90, 
90 5:END 


…. 


M > insert=6 
Pense > bord-gauche=10 


FPRINT donne seulement les paramètres, pour activer l'édition, il 
faut taper POKE#131,8:LIST ---> écran + imprimante 
POKE#131,9:LIST ---»> imprimante uniquement 


GRAPHIC-TOOLKIT III : activer SGT. 


SGT. 


Cette instruction permet de charger la partie SGT en RAM et d'initi- 
aliser le SGT. Ce dernier occupe les adresses #2EC à #F93 comprenant 
outre la routine, la table standard de caractères (96 signes) et le 
jeu de cartes. 


En mode direct après avoir tapé SGT, on a le message SGT ON LINE. 


On peut également utiliser SGT dans un programme BASIC mais comme 
toute première instruction (le programme BASIC sera décalé pour 
placer le SGT en RAM). 


Si on veut lister un programme contenant des instructions SGT et que 
l'ordre SGT n'a pas été introduit, on obtient le message : 
#*#*#* UNDEFINED CANAL 3 


Si on veut enlever la partie SGT en RAM,on tape CONCAT 3,0 ou $RESET 
Le heap reste à la valeur #F94, on peut récupérer cette place par 
HEAP #2EC. 


GRAPHIC-TOOLKIT III : divers. 


Cette instruction est identique MODE du BASIC , mais ici n peut 
etre une expression arithmétique, le résultat donnera le mode 


correspondant suivant 


A 3 3A 4 LA 5 5A 6 6A 7 7A 8 8A 0 
3 4 5 6 7 8 910 11 12 13 14 15 .. 855 


ancien MODE : 1 14 22 
nouveau MODE: O 1 2 


Toute valeur n>15 donne un MODE O. 


è5 


Cette instruction efface la partie graphique de l'écran (=CLS du 
mode texte) et est plus rapide que FILL 0,0 XMAX,YMAX 20 


Cette instruction doit etre precédée d'une instruction MODE. 
Pour avoir un écran propre : MODE n:CLEAN en début de programme. 


L'écran passe en MODE n avant de faire un CLEAN. 


LES PROGRAMMES "CRUNCH". 


“"Crunch" permet de rassembler en un seul bloc les fichiers et program- 
mes qui se trouvent sur une cassette et de les charger en mémoire s'il 
y a assez de place. 


SCRUNCH n 


n donne le nombre de fichiers ou de programmes à lire. 
Si n=0 on lira la bande jusqu'à la fin. 


SCRCONT 


Cette instruction permet de continuer le "Crunch" après un arret 
(fin de bande, écriture sur disque après n programmes,...). 


$SCRSAVE 


Cette instruction donne la liste des programmes mémorisés qui seront 
à ne pas recopier sur disque. 


N.B. : "Crunch" ne travaille que sur cassette et pas sur disque. 


LE PROGRAMME "ALLADER" 


"ALLADER" permet de lire automatiquement une cassette et de recopier 
sur disque, sous le meme nom, les fichiers ou programmes. 


£b 


CONCATENATION DE PROGRAMME BASIC ET MACHINE. 


Cette instruction intègre en un programme BASIC la partie langage 
machine et la partie BASIC. Lors du dépackage (RUN du programme), le 
langage machine (MP) sera détaché du programme BASIC et placé à son 
adresse correcte en mémoire centrale. 

Ceci remplace donc le "Dainamic Bootstrap Loader" qui ne fonctionne 
pas sur disque. 


1) Syntaxe : 


2) 


3) 


4) 


5) 


$CONC:FILL o,e m,a h (:CLEAR x)(:MODE n)(:TRON)(:LIST) 
$SCONC:OUT o,a (:CLEAR x)(:MODE n)(:TRON)(:LIST) 
$CONC : LOAD (:CLEAR x)(:MODE n)(:TRON)(:LIST) 


Signification des paramètres avec FILL 


adresse début ,adresse de fin de MP (où la placer après RUN) 
adresse momentanée en RAM de MP càd si m différent de o 
adresse autostart de MP (a=0 si pas d'autostart) 

adresse de start du HEAP (si h=0 --> HEAP=e+1) 


Signification des paramètres avec OUT : 


adresse début de MP 
adresse autostart de MP (a=0 si pas d'autostart) 


p 
nu 


Avec OUT, l'adresse de fin de MP = DEEK(#29B - 1) et le MP se 
trouve à sa bonne place en RAM juste en dessous du HEAP. 


Signification du paramètre LOAD 


Avec LOAD, on peut copier d'une cassette vers une disquette un 
programme DBL vers la méthode $CONC. 


Signification des paramètres de “dépackage" 


CLEAR x : la longueur x du HEAP est mémorisée, lors du dépackage 
un CLEAR x sera exécuté. 


MODE n : avant le dépackage, une instruction MODE n est exécutée 
il est donc possible à la place d'un MP de dépacker des 
images (MODE 1 à HA) par le RUN du BASIC. 

On peut penser à l'affichage de LOGO qui, grace à 
l'option autostart a=#D6DA, reste à l'écran tant que 
l'on n'appuie pas sur la barre d'espacement. 


TRON : après le dépackage, le MP sera séparé du programme 
BASIC, il sera parfois intéressant de le dépacker à 
chaque RUN (pour un LOGO). Avec cette option, il reste 
intégré au programme BASIC. 


LIST : il y a certains programmes BASIC avec MP qui ne permet- 
tent pas d'etre listés sans avoir fait tourner le MP 
(on pense à certains programmes particuliers avec une 
partie NCU qui sans initilisation ne peuvent etre liste 
ou édités). Avec cette option apparaitra un message 
si on essaye de lister le programme. 


2? 


6) Remarques 


- Avec $SCONC, sera réservée une ligne au début du programme 
sans numéro de ligne : CALLM PEEK(......... 
On peut donner un numéro de ligne par EDIT mais ne pas changer 
la position de la ligne dans le programme BASIC. 


- Si on veut lister un programme où un MP est intégré par S$CONC 
on aura à la fin du listing un message OVERFLOW là où commen- 
ce le MP. 


7) L'ordre des opérations lors du dépackage : 


0) d'abord RUN --> CALLM PEEK(.... --) démarrage du dépackage 

1) LXI SP,:F900 

2) placer la valeur du début du HEAP (h) en #29B 

3a) replacer l'ancienne valeur du HEAP (si mémorisée par CLEAR x 
dans S$SCONC:FILL ...) 

3b) longueur du HEAP=4 

4) charger la pile avec le sous-programme et le démarrer 

5) CLEAR (pointeurs Heap et Basic à placer/déplacer) 

6) eventuellement faire MODE n 

7) copier le MP (dépackage) 

8) placer la longueur du Heap à sa vraie valeur 

9) MP et première ligne CALLM PEEK(...) à effacer (si onn'a 
pas utilisé l'option TRON) 

10) un deuxième CLEAR, RESTORE 

11) eventuellement un Autostart 

12) GOTO à la première ligne du BASIC 


8) Remarques générales 


- le MP peut etre une image; dans ce cas, il faut définir la 
valeur h du HEAP, sinon le programme BASIC va etre chargé à 
l'emplacement des ROM ! (e=#BFFF alors h=#CO000 !) 

- On peut intégrer plusieurs MP, la dernière intégrée sera la 
première dépackée. Si l'option TRON est utilisée, elle doit 
l'etre dans la première MP intégrée. 

- On ne pourra rien copier en pile. 

- Des exemples explicites se trouvent dans la manuel allemand 


(p. 76 et 77). 


